home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d26 / freetk.arc / CARPET.TK next >
Text File  |  1987-06-16  |  1KB  |  145 lines
  1. TK!2
  2. =v
  3. #1
  4. :n
  5. n
  6. :v
  7. 56
  8. :s
  9. i
  10. :c
  11. number of "rings" on the roll
  12. #2
  13. :n
  14. ic
  15. :v
  16. 14.125
  17. :s
  18. i
  19. :u
  20. in
  21. :d
  22. in
  23. :c
  24. inner circumference (of the core)
  25. #3
  26. :n
  27. id
  28. :s
  29. b
  30. :u
  31. in
  32. :d
  33. in
  34. :c
  35. inner diameter (of the core)
  36. #4
  37. :n
  38. oc
  39. :v
  40. 35.5
  41. :s
  42. i
  43. :u
  44. in
  45. :d
  46. in
  47. :c
  48. outer circumference
  49. #5
  50. :n
  51. od
  52. :s
  53. b
  54. :u
  55. in
  56. :d
  57. in
  58. :c
  59. outer diameter
  60. #6
  61. :n
  62. length
  63. :s
  64. b
  65. :u
  66. in
  67. :d
  68. ft
  69. :c
  70. length of remaining linoleum or carpet
  71. #7
  72. :n
  73.  
  74. :s
  75. b
  76. #8
  77. :n
  78.  
  79. :s
  80. b
  81. #9
  82. :n
  83.  
  84. :s
  85. b
  86. =u
  87. #1
  88. :f
  89. ft
  90. :t
  91. in
  92. :m
  93. 12
  94. #2
  95. :f
  96. yd
  97. :t
  98. ft
  99. :m
  100. 3
  101. #3
  102. :f
  103. in
  104. :t
  105. cm
  106. :m
  107. 2.54
  108. #4
  109. :f
  110. m
  111. :t
  112. cm
  113. :m
  114. 100
  115. =r
  116. #1
  117. :r
  118. "      ****  LENGTH OF LINOLEUM OR CARPET REMAINING ON A ROLL  ****
  119. :s
  120. C
  121. #3
  122. :r
  123. length = n * (ic + oc) / 2              " This rule uses circumferences
  124. #4
  125. :r
  126. length = n * pi() * (id + od) / 2       " This rule uses diameters
  127. #5
  128. :r
  129. ic = pi() * id
  130. #6
  131. :r
  132. oc = pi() * od
  133. #8
  134. :r
  135. "  The number of "rings" is counted and multiplied by the average length
  136. :s
  137. C
  138. #9
  139. :r
  140. "  (circumference) of the "rings".  Thickness of the material doesn't matter.
  141. :s
  142. C
  143. %Br,f,0,1,0,1,0
  144. %Ov,f,6,5,0,1,0
  145.